object DataModule1: TDataModule1
  OldCreateOrder = False
  Left = 284
  Top = 57
  Height = 615
  Width = 556
  object qTemp: TADOQuery
    Connection = SqlConnection
    Parameters = <>
    Left = 40
    Top = 184
  end
  object SqlConnection: TADOConnection
    CommandTimeout = 0
    ConnectionTimeout = 0
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'SQLOLEDB.1'
    Left = 40
    Top = 32
  end
  object SqlConnection1: TADOConnection
    LoginPrompt = False
    Mode = cmShareDenyNone
    Provider = 'Microsoft.Jet.OLEDB.4.0'
    Left = 40
    Top = 80
  end
  object ListUser: TKListMDIChild
    Caption = #3649#3615#3657#3617#3627#3621#3633#3585' | '#3612#3641#3657#3651#3594#3657#3650#3611#3619#3649#3585#3619#3617
    DataSet = qUser
    DefaultOrder.Strings = (
      #3648#3621#3586#3607#3637#3656#3612#3641#3657#3651#3594#3657)
    VisibleButtons = [nbInsert, nbRefresh]
    BeforeExecute = ListUserBeforeExecute
    AfterExecute = ListUserAfterExecute
    Left = 122
    Top = 24
  end
  object qUser: TADOQuery
    Connection = SqlConnection
    CursorType = ctStatic
    CommandTimeout = 0
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM MUSR ')
    Left = 152
    Top = 24
    object qUserUSRCODE: TWideStringField
      DisplayLabel = #3648#3621#3586#3607#3637#3656#3612#3641#3657#3651#3594#3657
      FieldName = 'USRCODE'
      Size = 15
    end
    object qUserUSRNAME: TWideStringField
      FieldName = 'USRNAME'
      Size = 50
    end
    object qUserUSRLOG: TWideStringField
      FieldName = 'USRLOG'
      Size = 50
    end
    object qUserUSRPASS: TWideStringField
      FieldName = 'USRPASS'
    end
    object qUserUSRSTS: TWideStringField
      FieldName = 'USRSTS'
      Size = 1
    end
    object qUserDEPCODE: TWideStringField
      FieldName = 'DEPCODE'
      Size = 5
    end
    object qUserDEPNAME: TWideStringField
      FieldName = 'DEPNAME'
      Size = 50
    end
  end
  object qMar: TADOQuery
    Connection = SqlConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT  * FROM STATUS_MARRY')
    Left = 280
    Top = 232
    object qMarCODE_StatusMarry: TWideStringField
      DisplayLabel = #3619#3627#3633#3626
      FieldName = 'CODE_StatusMarry'
      Size = 2
    end
    object qMarStatusMarry: TWideStringField
      DisplayLabel = #3626#3606#3634#3609#3632
      DisplayWidth = 20
      FieldName = 'StatusMarry'
      Size = 50
    end
  end
  object qLoca: TADOQuery
    Connection = SqlConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM  LOCATION')
    Left = 368
    Top = 496
    object qLocaProjectID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626
      FieldName = 'ProjectID'
      Size = 5
    end
    object qLocaProjectName: TWideStringField
      DisplayLabel = #3650#3588#3619#3591#3585#3634#3619
      DisplayWidth = 50
      FieldName = 'ProjectName'
      Size = 100
    end
    object qLocaProvID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626#3592#3633#3591#3627#3623#3633#3604
      FieldName = 'ProvID'
      Size = 2
    end
  end
  object qReg: TADOQuery
    Connection = SqlConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      #13'SELECT * FROM AMPHUR')
    Left = 280
    Top = 80
    object qRegampID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626
      FieldName = 'ampID'
      Size = 4
    end
    object qRegampNm: TWideStringField
      DisplayLabel = #3629#3635#3648#3616#3629
      DisplayWidth = 50
      FieldName = 'ampNm'
      Size = 90
    end
    object qRegprovID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626#3592#3633#3591#3627#3623#3633#3604
      FieldName = 'provID'
      Size = 2
    end
  end
  object qArea: TADOQuery
    Connection = SqlConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM PROVINCE')
    Left = 280
    Top = 128
    object qAreaprovID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626
      FieldName = 'provID'
      Size = 2
    end
    object qAreaprovNm: TWideStringField
      DisplayLabel = #3592#3633#3591#3627#3623#3633#3604
      FieldName = 'provNm'
      Size = 50
    end
    object qArearid: TWideStringField
      DisplayLabel = #3616#3634#3588
      FieldName = 'rid'
      Size = 1
    end
  end
  object qTam: TADOQuery
    Connection = SqlConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT  * FROM Tambon ')
    Left = 280
    Top = 32
    object qTamtamID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626
      FieldName = 'tamID'
      Size = 6
    end
    object qTamtamNm: TWideStringField
      DisplayLabel = #3605#3635#3610#3621
      DisplayWidth = 50
      FieldName = 'tamNm'
      Size = 90
    end
    object qTamampId: TWideStringField
      DisplayLabel = #3619#3627#3633#3626#3629#3635#3648#3616#3629
      FieldName = 'ampId'
      Size = 4
    end
  end
  object luArea: TKLookUp
    Caption = #3588#3657#3609#3627#3634#3592#3633#3591#3627#3623#3633#3604
    DataSet = qArea
    DefaultOrder.Strings = (
      #3619#3627#3633#3626)
    Left = 248
    Top = 129
  end
  object luReg: TKLookUp
    Caption = #3588#3657#3609#3627#3634#3629#3635#3648#3616#3629
    DataSet = qReg
    DefaultOrder.Strings = (
      #3619#3627#3633#3626)
    Left = 248
    Top = 81
  end
  object luTam: TKLookUp
    Caption = #3588#3657#3609#3627#3634#3605#3635#3610#3621
    DataSet = qTam
    DefaultOrder.Strings = (
      #3619#3627#3633#3626)
    Left = 248
    Top = 33
  end
  object luMar: TKLookUp
    Caption = #3588#3657#3609#3627#3634#3626#3606#3634#3609#3632
    DataSet = qMar
    DefaultOrder.Strings = (
      #3619#3627#3633#3626)
    Left = 248
    Top = 233
  end
  object luLoca: TKLookUp
    Caption = #3588#3657#3609#3627#3634#3650#3588#3619#3591#3585#3634#3619
    DataSet = qLoca
    DefaultOrder.Strings = (
      #3619#3627#3633#3626)
    BeforeExecute = luCommitKBeforeExecute
    Left = 328
    Top = 505
  end
  object qDept: TADOQuery
    Connection = SqlConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT  *  FROM MDEP')
    Left = 368
    Top = 32
    object qDeptDEPCODE: TWideStringField
      DisplayLabel = #3619#3627#3633#3626#3627#3609#3656#3623#3618
      FieldName = 'DEPCODE'
      Size = 5
    end
    object qDeptDEPNAME: TWideStringField
      DisplayLabel = #3627#3609#3656#3623#3618#3591#3634#3609
      FieldName = 'DEPNAME'
    end
    object qDeptDEPTYPE: TWideStringField
      DisplayLabel = #3611#3619#3632#3648#3616#3607
      FieldName = 'DEPTYPE'
      Size = 1
    end
    object qDeptDEPHEAD: TWideStringField
      DisplayLabel = #3627#3633#3623#3627#3609#3657#3634#3627#3609#3656#3623#3618#3591#3634#3609
      FieldName = 'DEPHEAD'
    end
  end
  object luDept: TKLookUp
    Caption = #3588#3657#3609#3627#3634#3627#3609#3656#3623#3618#3591#3634#3609
    DataSet = qDept
    DefaultOrder.Strings = (
      #3619#3627#3633#3626#3627#3609#3656#3623#3618)
    Left = 336
    Top = 33
  end
  object qOth: TADOQuery
    Connection = SqlConnection
    Parameters = <>
    Left = 40
    Top = 128
  end
  object ListDept: TKListMDIChild
    Caption = #3649#3615#3657#3617#3627#3621#3633#3585' | '#3627#3609#3656#3623#3618#3591#3634#3609
    DataSet = qDept
    DefaultOrder.Strings = (
      #3619#3627#3633#3626#3627#3609#3656#3623#3618)
    VisibleButtons = [nbInsert, nbRefresh]
    BeforeExecute = ListUserBeforeExecute
    AfterExecute = ListUserAfterExecute
    Left = 122
    Top = 72
  end
  object ListCode: TKListMDIChild
    Caption = #3649#3615#3657#3617#3627#3621#3633#3585' | '#3586#3657#3629#3617#3641#3621#3619#3632#3610#3610
    DataSet = qCode
    DefaultOrder.Strings = (
      #3619#3627#3633#3626)
    VisibleButtons = [nbInsert, nbRefresh]
    BeforeExecute = ListUserBeforeExecute
    AfterExecute = ListUserAfterExecute
    Left = 122
    Top = 120
  end
  object qCode: TADOQuery
    Connection = SqlConnection
    CursorType = ctStatic
    CommandTimeout = 0
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM MCODE')
    Left = 152
    Top = 120
    object qCodeCODE: TWideStringField
      DisplayLabel = #3619#3627#3633#3626
      FieldName = 'CODE'
      Size = 10
    end
    object qCodeCODENAME: TWideStringField
      DisplayLabel = #3594#3639#3656#3629#3619#3627#3633#3626
      FieldName = 'CODENAME'
      Size = 50
    end
    object qCodeCODENO: TWideStringField
      DisplayLabel = #3592#3635#3609#3623#3609#3611#3633#3592#3592#3640#3610#3633#3609
      FieldName = 'CODENO'
      Size = 10
    end
    object qCodeCODEYEAR: TWideStringField
      DisplayLabel = #3611#3637#3611#3633#3592#3592#3640#3610#3633#3609
      FieldName = 'CODEYEAR'
      Size = 4
    end
    object qCodeCODEREP: TWideStringField
      DisplayLabel = #3607#3637#3656#3648#3585#3655#3610#3649#3615#3657#3617#3619#3634#3618#3591#3634#3609
      FieldName = 'CODEREP'
      Size = 255
    end
  end
  object qLandCode: TADOQuery
    Connection = SqlConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM LANDCODE')
    Left = 368
    Top = 128
    object qLandCodeLandCodeID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626
      DisplayWidth = 2
      FieldName = 'LandCodeID'
      Size = 2
    end
    object qLandCodeLandCodeNm: TWideStringField
      DisplayLabel = #3626#3606#3634#3609#3632#3607#3637#3656#3604#3636#3609
      DisplayWidth = 20
      FieldName = 'LandCodeNm'
      Size = 50
    end
  end
  object luLandCode: TKLookUp
    Caption = #3588#3657#3609#3627#3634#3626#3606#3634#3609#3632#3607#3637#3656#3604#3636#3609
    DataSet = qLandCode
    DefaultOrder.Strings = (
      #3619#3627#3633#3626)
    Left = 336
    Top = 129
  end
  object ListFarmer: TKListMDIChild
    INITButton1.Show = True
    INITButton1.Caption = #3610#3633#3605#3619#3611#3619#3632#3594#3634#3594#3609
    INITButton2.Show = True
    INITButton2.Caption = #3588#3657#3609#3627#3634#3594#3639#3656#3629'-'#3626#3585#3640#3621
    Caption = #3649#3615#3657#3617#3627#3621#3633#3585' | '#3648#3585#3625#3605#3619#3585#3619
    DataSet = qFarmer
    DefaultOrder.Strings = (
      #3648#3621#3586#3611#3619#3632#3592#3635#3605#3633#3623#3611#3619#3632#3594#3634#3594#3609)
    PanelWidth = 120
    ShowPanel = True
    VisibleButtons = [nbInsert, nbRefresh]
    BeforeExecute = ListFarmerBeforeExecute
    AfterExecute = ListUserAfterExecute
    OnButton1Click = ListFarmerButton1Click
    OnButton2Click = ListFarmerButton2Click
    Left = 122
    Top = 168
  end
  object qFarmer: TADOQuery
    Connection = SqlConnection
    CursorType = ctStatic
    CommandTimeout = 0
    Parameters = <>
    SQL.Strings = (
      'SELECT  *  FROM FARMER WITH (NOLOCK)')
    Left = 144
    Top = 168
    object qFarmerCardID: TWideStringField
      DisplayLabel = #3648#3621#3586#3611#3619#3632#3592#3635#3605#3633#3623#3611#3619#3632#3594#3634#3594#3609
      FieldName = 'CardID'
      Size = 13
    end
    object qFarmerTitleID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626#3588#3635#3609#3635#3627#3609#3657#3634
      FieldName = 'TitleID'
      Size = 2
    end
    object qFarmerTitleNm: TWideStringField
      DisplayLabel = #3588#3635#3609#3635#3627#3609#3657#3634
      DisplayWidth = 5
      FieldName = 'TitleNm'
      Size = 10
    end
    object qFarmerFirstName: TWideStringField
      DisplayLabel = #3594#3639#3656#3629
      DisplayWidth = 10
      FieldName = 'FirstName'
      Size = 30
    end
    object qFarmerLastName: TWideStringField
      DisplayLabel = #3626#3585#3640#3621
      DisplayWidth = 10
      FieldName = 'LastName'
      Size = 30
    end
    object qFarmerBirthDay: TDateTimeField
      DisplayLabel = #3623#3633#3609#3648#3585#3636#3604
      DisplayWidth = 10
      FieldName = 'BirthDay'
    end
    object qFarmerAddress: TWideStringField
      DisplayLabel = #3607#3637#3656#3629#3618#3641#3656
      FieldName = 'Address'
      Size = 10
    end
    object qFarmerRoad: TWideStringField
      DisplayLabel = #3606#3609#3609
      DisplayWidth = 10
      FieldName = 'Road'
    end
    object qFarmerSoi: TWideStringField
      DisplayLabel = #3595#3629#3618
      DisplayWidth = 10
      FieldName = 'Soi'
    end
    object qFarmerMu_Add: TWideStringField
      DisplayLabel = #3627#3617#3641#3656
      FieldName = 'Mu_Add'
      Size = 2
    end
    object qFarmerBan_Add: TWideStringField
      DisplayLabel = #3610#3657#3634#3609
      DisplayWidth = 10
      FieldName = 'Ban_Add'
    end
    object qFarmerBanNm: TWideStringField
      DisplayLabel = #3627#3617#3641#3656#3610#3657#3634#3609
      DisplayWidth = 10
      FieldName = 'BanNm'
      Size = 50
    end
    object qFarmerTamNm: TWideStringField
      DisplayLabel = #3605#3635#3610#3621
      DisplayWidth = 10
      FieldName = 'TamNm'
      Size = 50
    end
    object qFarmerAmpNm: TWideStringField
      DisplayLabel = #3629#3635#3648#3616#3629
      DisplayWidth = 10
      FieldName = 'AmpNm'
      Size = 50
    end
    object qFarmerProvNm: TWideStringField
      DisplayLabel = #3592#3633#3591#3627#3623#3633#3604
      DisplayWidth = 10
      FieldName = 'ProvNm'
      Size = 50
    end
    object qFarmerTelephone: TWideStringField
      DisplayLabel = #3650#3607#3619#3624#3633#3614#3607#3660
      DisplayWidth = 10
      FieldName = 'Telephone'
    end
    object qFarmerMobile: TWideStringField
      DisplayLabel = #3639#3650#3607#3619#3624#3633#3614#3607#3660#3617#3639#3629#3606#3639#3629
      FieldName = 'Mobile'
      Size = 10
    end
    object qFarmerEmail: TWideStringField
      DisplayWidth = 10
      FieldName = 'Email'
      Size = 50
    end
    object qFarmerIncome: TIntegerField
      DisplayLabel = #3619#3634#3618#3652#3604#3657
      DisplayWidth = 5
      FieldName = 'Income'
    end
    object qFarmerSCardID: TWideStringField
      DisplayLabel = #3648#3621#3586#3607#3637#3656#3610#3633#3605#3619#3611#3619#3632#3594#3634#3594#3609#3588#3641#3656#3626#3617#3619#3626
      FieldName = 'SCardID'
      Size = 13
    end
    object qFarmerSTitleNm: TWideStringField
      DisplayLabel = #3588#3635#3609#3635#3627#3609#3657#3634#3588#3641#3656#3626#3617#3619#3626
      DisplayWidth = 5
      FieldName = 'STitleNm'
      Size = 10
    end
    object qFarmerSFirstName: TWideStringField
      DisplayLabel = #3594#3639#3656#3629#3588#3641#3656#3626#3617#3619#3626
      DisplayWidth = 10
      FieldName = 'SFirstName'
      Size = 30
    end
    object qFarmerSLastName: TWideStringField
      DisplayLabel = #3609#3634#3617#3626#3585#3640#3621#3588#3641#3656#3626#3617#3619#3626
      DisplayWidth = 10
      FieldName = 'SLastName'
      Size = 30
    end
    object qFarmerSMobile: TWideStringField
      DisplayLabel = #3650#3607#3619#3624#3633#3614#3607#3660#3617#3639#3629#3606#3639#3629#3588#3641#3656#3626#3617#3619#3626
      FieldName = 'SMobile'
      Size = 10
    end
    object qFarmerRemarkF: TWideStringField
      DisplayLabel = #3627#3617#3634#3618#3648#3627#3605#3640
      DisplayWidth = 20
      FieldName = 'RemarkF'
      Size = 200
    end
    object qFarmerStatusNm: TWideStringField
      DisplayLabel = #3626#3606#3634#3609#3632
      FieldName = 'StatusNm'
      Size = 10
    end
    object qFarmerLastUpdate: TDateTimeField
      DisplayLabel = #3623#3633#3609#3607#3637#3656#3611#3619#3633#3610#3611#3619#3640#3591#3586#3657#3629#3617#3641#3621
      FieldName = 'LastUpdate'
    end
    object qFarmerProvID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626#3592#3633#3591#3627#3623#3633#3604
      FieldName = 'ProvID'
      Size = 2
    end
    object qFarmerAmpID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626#3629#3635#3648#3616#3629
      FieldName = 'AmpID'
      Size = 4
    end
    object qFarmerTamID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626#3605#3635#3610#3621
      FieldName = 'TamID'
      Size = 6
    end
    object qFarmerSBirthDay: TDateTimeField
      DisplayLabel = #3623#3633#3609#3648#3585#3636#3604#3588#3641#3656#3626#3617#3619#3626
      FieldName = 'SBirthDay'
    end
    object qFarmerBanID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626#3627#3617#3641#3656#3610#3657#3634#3609
      FieldName = 'BanID'
      Size = 8
    end
    object qFarmerSTitleID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626#3588#3635#3609#3635#3627#3609#3657#3634#3588#3641#3656#3626#3617#3619#3626
      FieldName = 'STitleID'
      Size = 2
    end
    object qFarmerStatus: TWideStringField
      DisplayLabel = #3626#3606#3634#3609#3632
      FieldName = 'Status'
      Size = 1
    end
  end
  object ListGLand: TKListMDIChild
    INITButton1.Show = True
    INITButton1.Caption = #3588#3657#3609#3627#3634#3605#3634#3617#3649#3611#3621#3591
    INITButton2.Show = True
    INITButton2.Caption = #3588#3657#3609#3627#3634#3648#3585#3625#3605#3619#3585#3619
    INITButton3.Show = True
    INITButton3.Caption = #3588#3657#3609#3627#3634#3626#3606#3634#3609#3632#3607#3637#3656#3604#3636#3609
    INITButton4.Show = True
    INITButton4.Caption = #3588#3657#3609#3627#3634#3610#3633#3605#3619#3611#3619#3632#3594#3634#3594#3609
    Caption = #3649#3615#3657#3617#3627#3621#3633#3585' | '#3607#3637#3656#3604#3636#3609
    DataSet = qGLand
    DefaultOrder.Strings = (
      #3648#3621#3586#3607#3637#3656)
    PanelWidth = 120
    ShowPanel = True
    VisibleButtons = [nbInsert, nbRefresh]
    BeforeExecute = ListGLandBeforeExecute
    AfterExecute = ListUserAfterExecute
    OnButton1Click = ListGLandButton1Click
    OnButton2Click = ListGLandButton2Click
    OnButton3Click = ListGLandButton3Click
    OnButton4Click = ListGLandButton4Click
    Left = 122
    Top = 216
  end
  object qGLand: TADOQuery
    Connection = SqlConnection
    CursorType = ctStatic
    CommandTimeout = 0
    Parameters = <>
    SQL.Strings = (
      'SELECT  [ProjectRef]    '
      '      ,[ProjectID]'
      '      ,[luProjectID]'
      '      ,[Plang]'
      '      ,[Rawang]'
      '      ,[Rai]'
      '      ,[NGan] '
      '      ,[Wa]'
      '      ,[Gov_Land]'
      '      ,[luGov_Land]'
      '      ,[TidinState]'
      '      ,[luTidinState]'
      '      ,[MProjectRef]'
      '      ,[SpitDate]'
      '      ,[M_Plang]'
      '      ,[M_Rawang]'
      '      ,[Mu]'
      '      ,[BanID]'
      '      ,[Ban]'
      '      ,[TamID]'
      '      ,[TamNm]'
      '      ,[AmpID]'
      '      ,[AmpNm]'
      '      ,[ProvID]'
      '      ,[ProvNm]'
      '      ,[Landuse]'
      '      ,[luLanduse]'
      '      ,[Landcode]'
      '      ,[luLandcode]'
      '      ,[P_Code1]'
      '      ,[luP_Code1]'
      '      ,[P_Code2]'
      '      ,[luP_Code2]'
      '      ,[Subcode4]'
      '      ,[luSubcode4]'
      '      ,[AllowK]'
      '      ,[luAllowK]'
      '      ,[CommitDateK]'
      '      ,[luCommitDateK]'
      '      ,[AllowA]'
      '      ,[luAllowA]'
      '      ,[CommitDateA]'
      '      ,[luCommitDateA]'
      '      ,[AllowP]'
      '      ,[luAllowP]'
      '      ,[CommitDateP]'
      '      ,[luCommitDateP]'
      '      ,[Book_NO]'
      '      ,[ALRODate]'
      '      ,[Prt_NO]'
      '      ,[Digi_Tam]'
      '      ,[Digi_Amp]'
      '      ,[RemarkL]'
      '      ,[Landupdate]'
      '      ,[LandType]'
      '      ,[luLandType]'
      '      ,[ChumType]'
      '      ,[luChumType]'
      '      ,[LandYear]'
      '      ,[Xrayyear]'
      '      ,[Subcode3]'
      '      ,[luSubcode3]'
      '      ,[Subcode5]'
      '      ,[luSubcode5]'
      '      ,[OldFarmerID]'
      '      ,[CardID]'
      '      ,[TitleID]'
      '      ,[luTitleID]'
      '      ,[Firstname]'
      '      ,[Lastname]'
      '      ,[Birthday]'
      '      ,[Status]'
      '      ,[luStatus]'
      '      ,[Address]'
      '      ,[Road]'
      '      ,[Soi]'
      '      ,[Mu_Add]'
      '      ,[BanID_Add]'
      '      ,[Ban_Add]'
      '      ,[TamID_Add]'
      '      ,[luTam_Add]'
      '      ,[AmpID_Add]'
      '      ,[luAmp_Add]'
      '      ,[ProvID_Add]'
      '      ,[luProv_Add]'
      '      ,[Telephone]'
      '      ,[Mobile]'
      '      ,[Email]'
      '      ,[Income]'
      '      ,[SCardID]'
      '      ,[STitleID]'
      '      ,[luSTitleID]'
      '      ,[SFirstname]'
      '      ,[SLastname]'
      '      ,[SBirthday]'
      '      ,[SMobile]'
      '      ,[SEmail]'
      '      ,[Remark_F]'
      '      ,[Asset]'
      '      ,[K401]'
      '      ,[Prt_NOK401]'
      '      ,[Book_NoK401]'
      '      ,[MuK401]'
      '      ,[BanK401]'
      '      ,[TamK401]'
      '      ,[AmpK401]'
      '      ,[InsertDate]'
      '      ,[InsertBy]'
      '      ,[LastUpdate]'
      '      ,[UpdateBy]'
      '      ,[Pak]'
      '      ,[PakID]'
      '      ,[Xray]'
      '      ,[NewArea]  FROM GLAND WITH (NOLOCK)')
    Left = 152
    Top = 216
    object qGLandCardID: TWideStringField
      DisplayLabel = #3648#3621#3586#3611#3619#3632#3592#3635#3605#3633#3623#3611#3619#3632#3594#3634#3594#3609
      FieldName = 'CardID'
      Size = 13
    end
    object qGLandluTitleID: TWideStringField
      DisplayLabel = #3588#3635#3609#3635#3627#3609#3657#3634
      DisplayWidth = 5
      FieldName = 'luTitleID'
      Size = 10
    end
    object qGLandFirstname: TWideStringField
      DisplayLabel = #3594#3639#3656#3629
      DisplayWidth = 10
      FieldName = 'Firstname'
      Size = 30
    end
    object qGLandLastname: TWideStringField
      DisplayLabel = #3626#3585#3640#3621
      DisplayWidth = 10
      FieldName = 'Lastname'
      Size = 30
    end
    object qGLandPlang: TWideStringField
      DisplayLabel = #3649#3611#3621#3591
      DisplayWidth = 5
      FieldName = 'Plang'
      Size = 7
    end
    object qGLandRawang: TWideStringField
      DisplayLabel = #3619#3632#3623#3634#3591'/'#3585#3621#3640#3656#3617
      DisplayWidth = 10
      FieldName = 'Rawang'
      Size = 15
    end
    object qGLandRai: TSmallintField
      DisplayLabel = #3652#3619#3656
      DisplayWidth = 5
      FieldName = 'Rai'
    end
    object qGLandNGan: TWordField
      DisplayLabel = #3591#3634#3609
      DisplayWidth = 5
      FieldName = 'NGan'
    end
    object qGLandWa: TWordField
      DisplayLabel = #3623#3634
      DisplayWidth = 5
      FieldName = 'Wa'
    end
    object qGLandGov_Land: TWideStringField
      DisplayLabel = #3626#3606#3634#3609#3632#3649#3610#3656#3591#3649#3611#3621#3591
      FieldName = 'Gov_Land'
      Size = 1
    end
    object qGLandM_Plang: TWideStringField
      DisplayLabel = #3649#3610#3656#3591#3617#3634#3592#3634#3585#3649#3611#3621#3591
      FieldName = 'M_Plang'
      Size = 7
    end
    object qGLandM_Rawang: TWideStringField
      DisplayLabel = #3649#3610#3656#3591#3617#3634#3592#3634#3585#3619#3632#3623#3634#3591
      DisplayWidth = 10
      FieldName = 'M_Rawang'
      Size = 15
    end
    object qGLandProjectID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626#3650#3588#3619#3591#3585#3634#3619
      FieldName = 'ProjectID'
      Size = 5
    end
    object qGLandluProjectID: TWideStringField
      DisplayLabel = #3650#3588#3619#3591#3585#3634#3619
      DisplayWidth = 15
      FieldName = 'luProjectID'
      Size = 50
    end
    object qGLandMu: TWideStringField
      DisplayLabel = #3627#3617#3641#3656
      FieldName = 'Mu'
      Size = 2
    end
    object qGLandBan: TWideStringField
      DisplayLabel = #3610#3657#3634#3609
      DisplayWidth = 10
      FieldName = 'Ban'
      Size = 50
    end
    object qGLandTamNm: TWideStringField
      DisplayLabel = #3605#3635#3610#3621
      DisplayWidth = 10
      FieldName = 'TamNm'
      Size = 50
    end
    object qGLandAmpNm: TWideStringField
      DisplayLabel = #3629#3635#3648#3616#3629
      DisplayWidth = 10
      FieldName = 'AmpNm'
      Size = 50
    end
    object qGLandProvID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626#3592#3633#3591#3627#3623#3633#3604
      FieldName = 'ProvID'
      Size = 2
    end
    object qGLandProvNm: TWideStringField
      DisplayLabel = #3592#3633#3591#3627#3623#3633#3604
      DisplayWidth = 10
      FieldName = 'ProvNm'
      Size = 50
    end
    object qGLandLanduse: TWideStringField
      DisplayLabel = #3585#3634#3619#3651#3594#3657#3611#3619#3632#3650#3618#3594#3609#3660
      FieldName = 'Landuse'
      Size = 2
    end
    object qGLandLandcode: TWideStringField
      DisplayLabel = #3626#3606#3634#3609#3632#3607#3637#3656#3604#3636#3609
      FieldName = 'Landcode'
      Size = 2
    end
    object qGLandP_Code1: TWideStringField
      DisplayLabel = #3611#3633#3597#3627#3634#3607#3637#3656#3604#3636#3609
      FieldName = 'P_Code1'
      Size = 2
    end
    object qGLandP_Code2: TWideStringField
      DisplayLabel = #3611#3633#3597#3627#3634#3648#3585#3625#3605#3619#3585#3619
      FieldName = 'P_Code2'
      Size = 2
    end
    object qGLandSubcode3: TWideStringField
      DisplayLabel = #3611#3633#3597#3627#3634#3648#3629#3585#3626#3634#3619
      FieldName = 'Subcode3'
      Size = 2
    end
    object qGLandSubcode4: TWideStringField
      DisplayLabel = #3612#3621#3585#3634#3619#3592#3633#3604
      FieldName = 'Subcode4'
      Size = 2
    end
    object qGLandSubcode5: TWideStringField
      DisplayLabel = #3611#3619#3632#3648#3616#3607#3585#3634#3619#3626#3635#3619#3623#3592#3619#3634#3591#3623#3633#3604
      FieldName = 'Subcode5'
      Size = 2
    end
    object qGLandAllowA: TWideStringField
      DisplayLabel = #3617#3605#3636#3588#3611#3629'.'
      FieldName = 'AllowA'
      Size = 2
    end
    object qGLandCommitDateA: TWideStringField
      DisplayLabel = #3611#3619#3632#3594#3640#3617#3588#3611#3629'.'
      FieldName = 'CommitDateA'
      Size = 8
    end
    object qGLandAllowP: TWideStringField
      DisplayLabel = #3617#3605#3636#3588#3611#3592'.'
      FieldName = 'AllowP'
      Size = 2
    end
    object qGLandCommitDateP: TWideStringField
      DisplayLabel = #3611#3619#3632#3594#3640#3617#3588#3611#3592'.'
      FieldName = 'CommitDateP'
      Size = 8
    end
    object qGLandBook_NO: TWideStringField
      DisplayLabel = #3626#3634#3619#3610#3633#3597#3648#3621#3586#3607#3637#3656
      FieldName = 'Book_NO'
      Size = 5
    end
    object qGLandALRODate: TDateTimeField
      DisplayLabel = #3627#3609#3633#3591#3626#3639#3629#3629#3609#3640#3597#3634#3605
      FieldName = 'ALRODate'
    end
    object qGLandPrt_NO: TWideStringField
      DisplayLabel = #3627#3617#3634#3618#3648#3621#3586#3649#3610#3610#3614#3636#3617#3614#3660
      FieldName = 'Prt_NO'
      Size = 10
    end
    object qGLandLandType: TWideStringField
      DisplayLabel = #3611#3619#3632#3648#3616#3607#3607#3637#3656#3604#3636#3609
      FieldName = 'LandType'
      Size = 1
    end
    object qGLandChumType: TWideStringField
      DisplayLabel = #3611#3619#3632#3648#3616#3607#3594#3640#3617#3594#3609
      FieldName = 'ChumType'
      Size = 1
    end
    object qGLandLandYear: TWideStringField
      DisplayLabel = #3611#3637#3604#3635#3648#3609#3636#3609#3585#3634#3619
      FieldName = 'LandYear'
      Size = 4
    end
    object qGLandRemarkL: TWideStringField
      DisplayLabel = #3627#3617#3634#3618#3648#3627#3605#3640
      DisplayWidth = 20
      FieldName = 'RemarkL'
      Size = 100
    end
    object qGLandAsset: TWideStringField
      DisplayLabel = #3649#3611#3621#3591#3626#3636#3609#3607#3619#3633#3614#3618#3660
      FieldName = 'Asset'
      Size = 1
    end
    object qGLandK401: TWideStringField
      DisplayLabel = #3626'.'#3611'.'#3585'4-01'#3588
      FieldName = 'K401'
      Size = 1
    end
    object qGLandProjectRef: TWideStringField
      DisplayLabel = #3648#3621#3586#3607#3637#3656
      DisplayWidth = 10
      FieldName = 'ProjectRef'
      Size = 30
    end
    object qGLandLastUpdate: TDateTimeField
      DisplayLabel = #3623#3633#3609#3607#3637#3656#3611#3619#3633#3610#3611#3619#3640#3591#3586#3657#3629#3617#3641#3621
      FieldName = 'LastUpdate'
      DisplayFormat = 'dd/mm/eeee'
    end
  end
  object qBan: TADOQuery
    Connection = SqlConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM MOOBAN')
    Left = 280
    Top = 176
    object qBanmooID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626
      FieldName = 'mooID'
      Size = 8
    end
    object qBanmooNm: TWideStringField
      DisplayLabel = #3627#3617#3641#3656#3610#3657#3634#3609
      DisplayWidth = 20
      FieldName = 'mooNm'
      Size = 90
    end
    object qBantamID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626#3605#3635#3610#3621
      FieldName = 'tamID'
      Size = 6
    end
  end
  object luBan: TKLookUp
    Caption = #3588#3657#3609#3627#3634#3627#3617#3641#3656#3610#3657#3634#3609
    DataSet = qBan
    DefaultOrder.Strings = (
      #3619#3627#3633#3626)
    Left = 248
    Top = 177
  end
  object qTitle: TADOQuery
    Connection = SqlConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT  * FROM  Titles')
    Left = 280
    Top = 288
    object qTitleTitleID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626
      FieldName = 'TitleID'
      Size = 2
    end
    object qTitleTitleNm: TWideStringField
      DisplayLabel = #3588#3635#3609#3635#3627#3609#3657#3634
      FieldName = 'TitleNm'
    end
  end
  object luTitle: TKLookUp
    Caption = #3588#3657#3609#3627#3634#3588#3635#3609#3635#3627#3609#3657#3634
    DataSet = qTitle
    DefaultOrder.Strings = (
      #3619#3627#3633#3626)
    Left = 248
    Top = 289
  end
  object qAllow: TADOQuery
    Connection = SqlConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT  *  FROM ALLOW')
    Left = 368
    Top = 80
    object qAllowAllowId: TWideStringField
      DisplayLabel = #3619#3627#3633#3626
      FieldName = 'AllowId'
      Size = 2
    end
    object qAllowAllowNm: TWideStringField
      DisplayLabel = #3617#3605#3636
      DisplayWidth = 20
      FieldName = 'AllowNm'
    end
  end
  object luAllow: TKLookUp
    Caption = #3588#3657#3609#3627#3634#3617#3605#3636
    DataSet = qAllow
    DefaultOrder.Strings = (
      #3619#3627#3633#3626#3627#3609#3656#3623#3618)
    Left = 336
    Top = 81
  end
  object qSubCode1: TADOQuery
    Connection = SqlConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT  *  FROM  SUBCODE1')
    Left = 56
    Top = 296
    object qSubCode1Subcode1ID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626
      FieldName = 'Subcode1ID'
      Size = 2
    end
    object qSubCode1Subcode1Nm: TWideStringField
      DisplayLabel = #3611#3633#3597#3627#3634#3607#3637#3656#3604#3636#3609
      DisplayWidth = 20
      FieldName = 'Subcode1Nm'
      Size = 50
    end
  end
  object luSubCode1: TKLookUp
    Caption = #3588#3657#3609#3627#3634#3611#3633#3597#3627#3634#3607#3637#3656#3604#3636#3609
    DataSet = qSubCode1
    DefaultOrder.Strings = (
      #3619#3627#3633#3626#3627#3609#3656#3623#3618)
    Left = 24
    Top = 297
  end
  object qSubCode2: TADOQuery
    Connection = SqlConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT  *  FROM  SUBCODE2')
    Left = 56
    Top = 344
    object qSubCode2Subcode2ID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626
      FieldName = 'Subcode2ID'
      Size = 2
    end
    object qSubCode2Subcode2Nm: TWideStringField
      DisplayLabel = #3611#3633#3597#3627#3634#3648#3585#3625#3605#3619#3585#3619
      DisplayWidth = 20
      FieldName = 'Subcode2Nm'
      Size = 50
    end
  end
  object luSubCode2: TKLookUp
    Caption = #3588#3657#3609#3627#3634#3611#3633#3597#3627#3634#3648#3585#3625#3605#3619#3585#3619
    DataSet = qSubCode2
    DefaultOrder.Strings = (
      #3619#3627#3633#3626#3627#3609#3656#3623#3618)
    Left = 24
    Top = 345
  end
  object qSubCode3: TADOQuery
    Connection = SqlConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT  *  FROM  SUBCODE3')
    Left = 56
    Top = 392
    object qSubCode3Subcode3ID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626
      FieldName = 'Subcode3ID'
      Size = 2
    end
    object qSubCode3Subcode3Nm: TWideStringField
      DisplayLabel = #3611#3633#3597#3627#3634#3648#3629#3585#3626#3634#3619
      DisplayWidth = 20
      FieldName = 'Subcode3Nm'
      Size = 50
    end
  end
  object luSubCode3: TKLookUp
    Caption = #3588#3657#3609#3627#3634#3611#3633#3597#3627#3634#3648#3629#3585#3626#3634#3619
    DataSet = qSubCode3
    DefaultOrder.Strings = (
      #3619#3627#3633#3626#3627#3609#3656#3623#3618)
    Left = 24
    Top = 393
  end
  object qSubCode4: TADOQuery
    Connection = SqlConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT  *  FROM  SUBCODE4')
    Left = 56
    Top = 440
    object qSubCode4Subcode4ID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626
      FieldName = 'Subcode4ID'
      Size = 2
    end
    object qSubCode4Subcode4Nm: TWideStringField
      DisplayLabel = #3611#3633#3597#3627#3634#3585#3634#3619#3592#3633#3604#3607#3637#3656#3604#3636#3609
      DisplayWidth = 20
      FieldName = 'Subcode4Nm'
      Size = 50
    end
  end
  object luSubcode4: TKLookUp
    Caption = #3588#3657#3609#3627#3634#3611#3633#3597#3627#3634#3585#3634#3619#3592#3633#3604#3607#3637#3656#3604#3636#3609
    DataSet = qSubCode4
    DefaultOrder.Strings = (
      #3619#3627#3633#3626#3627#3609#3656#3623#3618)
    Left = 24
    Top = 441
  end
  object qSubCode5: TADOQuery
    Connection = SqlConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT  *  FROM  SUBCODE5')
    Left = 56
    Top = 488
    object qSubCode5Subcode5ID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626
      FieldName = 'Subcode5ID'
      Size = 2
    end
    object qSubCode5Subcode5Nm: TWideStringField
      DisplayLabel = #3611#3619#3632#3648#3616#3607#3649#3611#3621#3591#3607#3637#3656#3604#3636#3609
      DisplayWidth = 20
      FieldName = 'Subcode5Nm'
      Size = 50
    end
  end
  object luSubCode5: TKLookUp
    Caption = #3588#3657#3609#3627#3634#3611#3619#3632#3648#3616#3607#3649#3611#3621#3591#3607#3637#3656#3604#3636#3609
    DataSet = qSubCode5
    DefaultOrder.Strings = (
      #3619#3627#3633#3626#3627#3609#3656#3623#3618)
    Left = 24
    Top = 489
  end
  object qChumtype: TADOQuery
    Connection = SqlConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT  * FROM  CHUMTYPE')
    Left = 456
    Top = 32
    object qChumtypeChumTypeID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626
      FieldName = 'ChumTypeID'
      Size = 1
    end
    object qChumtypeChumTypeNm: TWideStringField
      DisplayLabel = #3611#3619#3632#3648#3616#3607#3594#3640#3617#3594#3609
      DisplayWidth = 20
      FieldName = 'ChumTypeNm'
      Size = 50
    end
  end
  object luChumtype: TKLookUp
    Caption = #3588#3657#3609#3627#3634#3611#3619#3632#3648#3616#3607#3594#3640#3617#3594#3609
    DataSet = qChumtype
    DefaultOrder.Strings = (
      #3619#3627#3633#3626)
    Left = 424
    Top = 33
  end
  object qLandType: TADOQuery
    Connection = SqlConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT  * FROM  LANDTYPE')
    Left = 456
    Top = 88
    object qLandTypeLandTypeID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626
      FieldName = 'LandTypeID'
      Size = 1
    end
    object qLandTypeLandTypeNm: TWideStringField
      DisplayLabel = #3611#3619#3632#3648#3616#3607#3607#3637#3656#3604#3636#3609
      DisplayWidth = 20
      FieldName = 'LandTypeNm'
      Size = 50
    end
  end
  object luLandtype: TKLookUp
    Caption = #3588#3657#3609#3627#3634#3611#3619#3632#3648#3616#3607#3607#3637#3656#3604#3636#3609
    DataSet = qLandType
    DefaultOrder.Strings = (
      #3619#3627#3633#3626)
    Left = 432
    Top = 121
  end
  object qLandUse: TADOQuery
    Connection = SqlConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM LANDUSE')
    Left = 368
    Top = 176
    object qLandUseLandUseID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626
      FieldName = 'LandUseID'
      Size = 2
    end
    object qLandUseLandUseNm: TWideStringField
      DisplayLabel = #3585#3634#3619#3651#3594#3657#3611#3619#3632#3650#3618#3594#3609#3660
      DisplayWidth = 20
      FieldName = 'LandUseNm'
      Size = 50
    end
  end
  object luLandUse: TKLookUp
    Caption = #3588#3657#3609#3627#3634#3585#3634#3619#3651#3594#3657#3611#3619#3632#3650#3618#3594#3609#3660
    DataSet = qLandUse
    DefaultOrder.Strings = (
      #3619#3627#3633#3626)
    Left = 336
    Top = 177
  end
  object qCommitProv: TADOQuery
    Connection = SqlConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT  * FROM CommitProv')
    Left = 376
    Top = 352
    object qCommitProvCommitProvID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626
      FieldName = 'CommitProvID'
      Size = 8
    end
    object qCommitProvCommitteeP: TWideStringField
      DisplayLabel = #3588#3619#3633#3657#3591#3607#3637#3656
      FieldName = 'CommitteeP'
      Size = 6
    end
    object qCommitProvCommitDate: TDateTimeField
      DisplayLabel = #3623#3633#3609#3607#3637#3656#3611#3619#3632#3594#3640#3617
      FieldName = 'CommitDate'
      DisplayFormat = 'dd/mm/eeee'
    end
    object qCommitProvProvID: TWideStringField
      DisplayLabel = #3592#3633#3591#3627#3623#3633#3604
      FieldName = 'ProvID'
      Size = 2
    end
  end
  object luCommitProv: TKLookUp
    Caption = #3588#3657#3609#3627#3634' '#3611#3619#3632#3594#3640#3617#3588#3611#3592'.'
    DataSet = qCommitProv
    DefaultOrder.Strings = (
      #3619#3627#3633#3626)
    BeforeExecute = luCommitKBeforeExecute
    Left = 328
    Top = 345
  end
  object qCommitAmp: TADOQuery
    Connection = SqlConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT  * FROM CommitAmp')
    Left = 375
    Top = 395
    object qCommitAmpCommitteeAID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626
      FieldName = 'CommitteeAID'
      Size = 10
    end
    object qCommitAmpCommitteeA: TWideStringField
      DisplayLabel = #3588#3619#3633#3657#3591#3607#3637#3656#3611#3619#3632#3594#3640#3617
      FieldName = 'CommitteeA'
      Size = 6
    end
    object qCommitAmpCommitDateA: TDateTimeField
      DisplayLabel = #3623#3633#3609#3607#3637#3656#3611#3619#3632#3594#3640#3617
      FieldName = 'CommitDateA'
      DisplayFormat = 'dd/mm/eeee'
    end
    object qCommitAmpAmpID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626#3629#3635#3648#3616#3629
      FieldName = 'AmpID'
      Size = 4
    end
    object qCommitAmpluAmpID: TWideStringField
      DisplayLabel = #3629#3635#3648#3616#3629
      DisplayWidth = 20
      FieldName = 'luAmpID'
      Size = 50
    end
    object qCommitAmpProvID: TWideStringField
      DisplayLabel = #3592#3633#3591#3627#3623#3633#3604
      FieldName = 'ProvID'
      Size = 2
    end
  end
  object luCommitAmp: TKLookUp
    Caption = #3588#3657#3609#3627#3634' '#3611#3619#3632#3594#3640#3617#3588#3611#3629'.'
    DataSet = qCommitAmp
    DefaultOrder.Strings = (
      #3619#3627#3633#3626)
    BeforeExecute = luCommitKBeforeExecute
    Left = 328
    Top = 385
  end
  object luFarmer: TKLookUp
    INITButton1.Show = True
    INITButton1.Caption = #3610#3633#3605#3619#3611#3619#3632#3594#3634#3594#3609
    INITButton2.Show = True
    INITButton2.Caption = #3588#3657#3609#3627#3634#3594#3639#3656#3629'-'#3626#3585#3640#3621
    INITButton3.Show = True
    INITButton3.Caption = #3648#3614#3636#3656#3617#3648#3585#3625#3605#3619#3585#3619
    Caption = #3588#3657#3609#3627#3634#3648#3585#3625#3605#3619#3585#3619
    FormMinWidth = 533
    FormWidth = 533
    DataSet = qFarmer
    DefaultOrder.Strings = (
      #3648#3621#3586#3611#3619#3632#3592#3635#3605#3633#3623#3611#3619#3632#3594#3634#3594#3609)
    BeforeExecute = ListFarmerBeforeExecute
    OnButton1Click = luFarmerButton1Click
    OnButton2Click = luFarmerButton2Click
    OnButton3Click = luFarmerButton3Click
    Left = 192
    Top = 169
  end
  object qLandYear: TADOQuery
    Connection = SqlConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT  * FROM  LANDYEAR')
    Left = 473
    Top = 144
    object qLandYearLandYearID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626
      FieldName = 'LandYearID'
      Size = 4
    end
    object qLandYearLandYearNm: TWideStringField
      DisplayLabel = #3611#3637#3604#3635#3648#3609#3636#3609#3585#3634#3619
      FieldName = 'LandYearNm'
      Size = 4
    end
  end
  object luLandYear: TKLookUp
    Caption = #3588#3657#3609#3627#3634#3611#3619#3632#3648#3616#3607#3607#3637#3656#3604#3636#3609
    DataSet = qLandYear
    DefaultOrder.Strings = (
      #3619#3627#3633#3626)
    Left = 441
    Top = 145
  end
  object qGov_Land: TADOQuery
    Connection = SqlConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT  * FROM  Gov_Land')
    Left = 360
    Top = 288
    object qGov_LandGov_LandID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626
      FieldName = 'Gov_LandID'
      Size = 1
    end
    object qGov_LandGov_LandNm: TWideStringField
      DisplayLabel = #3611#3619#3632#3648#3616#3607#3607#3637#3656#3604#3636#3609
      DisplayWidth = 20
      FieldName = 'Gov_LandNm'
      Size = 50
    end
  end
  object luGov_Land: TKLookUp
    Caption = #3588#3657#3609#3627#3634#3626#3606#3634#3609#3632#3649#3611#3621#3591#3649#3610#3656#3591
    DataSet = qGov_Land
    DefaultOrder.Strings = (
      #3619#3627#3633#3626)
    Left = 328
    Top = 289
  end
  object ListProvComit: TKListMDIChild
    Caption = #3649#3615#3657#3617#3627#3621#3633#3585' | '#3611#3619#3632#3594#3640#3617#3588#3611#3592'.'
    DataSet = qCommitProv
    DefaultOrder.Strings = (
      #3619#3627#3633#3626)
    PanelWidth = 120
    VisibleButtons = [nbInsert, nbRefresh]
    BeforeExecute = luCommitKBeforeExecute
    AfterExecute = ListUserAfterExecute
    Left = 274
    Top = 344
  end
  object ListAmpCommit: TKListMDIChild
    Caption = #3649#3615#3657#3617#3627#3621#3633#3585' | '#3611#3619#3632#3594#3640#3617#3588#3611#3629'.'
    DataSet = qCommitAmp
    DefaultOrder.Strings = (
      #3619#3627#3633#3626)
    PanelWidth = 120
    VisibleButtons = [nbInsert, nbRefresh]
    BeforeExecute = luCommitKBeforeExecute
    AfterExecute = ListUserAfterExecute
    Left = 274
    Top = 392
  end
  object qCommitK: TADOQuery
    Connection = SqlConnection
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'SELECT  * FROM CommitK')
    Left = 367
    Top = 443
    object qCommitKCommitteeKID: TWideStringField
      DisplayLabel = #3619#3627#3633#3626
      DisplayWidth = 10
      FieldName = 'CommitteeKID'
      Size = 8
    end
    object qCommitKCommitteeK: TWideStringField
      DisplayLabel = #3588#3619#3633#3657#3591#3607#3637#3656
      DisplayWidth = 10
      FieldName = 'CommitteeK'
      Size = 6
    end
    object qCommitKCommitDateK: TDateTimeField
      DisplayLabel = #3623#3633#3609#3607#3637#3656#3611#3619#3632#3594#3640#3617
      FieldName = 'CommitDateK'
      DisplayFormat = 'dd/mm/eeee'
    end
    object qCommitKProvID: TWideStringField
      DisplayLabel = #3592#3633#3591#3627#3623#3633#3604
      FieldName = 'ProvID'
      Size = 2
    end
  end
  object luCommitK: TKLookUp
    Caption = #3588#3657#3609#3627#3634' '#3611#3619#3632#3594#3640#3617#3588#3611#3585'.'
    DataSet = qCommitK
    DefaultOrder.Strings = (
      #3588#3619#3633#3657#3591#3607#3637#3656)
    BeforeExecute = luCommitKBeforeExecute
    Left = 328
    Top = 441
  end
  object ListCommitK: TKListMDIChild
    Caption = #3649#3615#3657#3617#3627#3621#3633#3585' | '#3611#3619#3632#3594#3640#3617#3588#3611#3585'.'
    DataSet = qCommitK
    DefaultOrder.Strings = (
      #3619#3627#3633#3626)
    PanelWidth = 120
    VisibleButtons = [nbInsert, nbRefresh]
    BeforeExecute = luCommitKBeforeExecute
    AfterExecute = ListUserAfterExecute
    Left = 282
    Top = 440
  end
  object ListLoca: TKListMDIChild
    Caption = #3649#3615#3657#3617#3627#3621#3633#3585' | '#3650#3588#3619#3591#3585#3634#3619'.'
    DataSet = qLoca
    DefaultOrder.Strings = (
      #3619#3627#3633#3626)
    PanelWidth = 120
    VisibleButtons = [nbInsert, nbRefresh]
    BeforeExecute = luCommitKBeforeExecute
    AfterExecute = ListUserAfterExecute
    Left = 282
    Top = 504
  end
  object qUser2: TADOQuery
    Connection = SqlConnection
    CursorType = ctStatic
    CommandTimeout = 0
    Parameters = <>
    SQL.Strings = (
      'SELECT * FROM MUSR ')
    Left = 368
    Top = 224
    object WideStringField1: TWideStringField
      DisplayLabel = #3619#3627#3633#3626#3611#3619#3632#3592#3635#3605#3633#3623
      FieldName = 'USRCODE'
      Size = 15
    end
    object WideStringField2: TWideStringField
      DisplayLabel = #3594#3639#3656#3629'-'#3626#3585#3640#3621
      DisplayWidth = 20
      FieldName = 'USRNAME'
      Size = 50
    end
    object WideStringField7: TWideStringField
      DisplayLabel = #3627#3609#3656#3623#3618#3591#3634#3609
      DisplayWidth = 20
      FieldName = 'DEPNAME'
      Size = 50
    end
  end
  object luUser2: TKLookUp
    Caption = #3588#3657#3609#3627#3634#3648#3592#3657#3634#3627#3609#3657#3634#3607#3637#3656
    DataSet = qUser2
    DefaultOrder.Strings = (
      #3619#3627#3633#3626#3611#3619#3632#3592#3635#3605#3633#3623)
    Left = 336
    Top = 233
  end
end
